Developer CD Series 2000 July: Mac OS SDK/Dev.CD Jul 00 SDK2.toast/Development Kits/• Obsolete⁄Unsupported/ScriptX/Code Samples/autofind/source/interfac.sx

Text File | 1996-05-21 | 1.4 KB | 52 lines | [TEXT/ttxt]

--<<<-

--*=============================================================================*
--* File: interfac.sx
--*
--* Purpose: Create a module which defines some basic interfaces which can be
--*          used by Titles and Accessories to allow a certain amount of
--*          communication between Titles and Accessories which may not
--*          otherwise know about each other.
--*
--*          This particular interface module was designed to be used by
--*          AutoFinder and any accessories which might want to be used by
--*          the AutoFinder title, e.g. the Tape Measure.  However, this
--*          same interface could be used by other titles.  Or you can
--*          certainly create your own interface however you think is best.
--*
--* Author: Robert Lockstone : 12-15-95
--*
--*=============================================================================*

module AccessoryInterface
    exports accessoryAnswersGetter, currentSceneGetter, getScale, updateScale,
            addToTitle
end

in module Scratch

(
local lc := new LibraryContainer dir:(parentDir theScriptDir) \
                                 path:"interfac.sxl"

lc.startUpAction :=
   (
   lc ->
      (
      forEach lc \
         (
         aModule xx ->
            (
            load aModule  --There's just one in this particular case.
            )
         ) undefined
      )
   )

append lc (getModule @AccessoryInterface)

close lc
)

"Compiled interfac.sx"